home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / S-Z / Special Delivery™ Demo.cpt / Special Delivery™ Demo / Claris / Claris Translators / EPSF.rsrc / PS_115 < prev    next >
Text File  |  1991-06-19  |  717b  |  50 lines
  1. %%BeginProcSet : BW 
  2. /ScalePoint {
  3.     0 0
  4.     4 -2 roll
  5.     0 0 1 1
  6.     8 4 roll GetBoxesRatio scale
  7. } bind def
  8. /PointDict 4 dict def
  9. PointDict begin
  10. /XPoint {
  11.         -.5 .5 moveto
  12.         .5 -.5 lineto
  13.         .5 .5 moveto
  14.         -.5 -.5 lineto
  15.     } bind def
  16.     /DiamondPoint {
  17.         0.0 .5 moveto
  18.         .5 0.0 lineto
  19.         0.0 -0.5 lineto
  20.         -.5 0.0 lineto
  21.         closepath
  22.     } bind def
  23.     /PlusPoint {
  24.         0.0 .5 moveto
  25.         0.0 -.5 lineto
  26.         -.5 0.0 moveto
  27.         .5 0.0 lineto
  28.     } bind def
  29.     /SquarePoint {
  30.         -.5 .5 moveto
  31.         .5 .5 lineto
  32.         .5 -.5 lineto
  33.         -.5 -.5 lineto
  34.         closepath
  35.     } bind def
  36. end
  37. /DrawPoint {
  38.     gsave
  39.         [] 0 setdash
  40.         0 setlinecap
  41.         translate
  42.         msave
  43.             ScalePoint
  44.             PointDict exch get exec
  45.         mrestore
  46.         1.0 setlinewidth stroke
  47.     grestore
  48. } bind def
  49. %%EndProcSet